home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Serious Demos / XTension demo / Scripts / Its Dark.On < prev    next >
Text File  |  1998-07-28  |  456b  |  14 lines
  1. --this is a flag with a script attached:
  2. --  it is controlled by the two redundant duck sensors
  3. --when this unit is turned ON, it is dark according to TWO sensors
  4. --and All Outside Lights should be unblocked 
  5.  
  6. --  since it is night time, the outside lights are not blocked, so just
  7. unblock unit "Outside Lights"
  8.  
  9. if time of (current date) > 17 * hours then
  10.     write log "Reasonable daylight length today"
  11. else
  12.     write log "It must be a very dark day."
  13. end if
  14.